StDev, StDevP û funkcje - przyk│ad

W tym przyk│adzie tabela Zam≤wienia jest wykorzystywana do oszacowania odchylenia standardowego op│at za fracht za zam≤wienia wys│ane do Wielkiej Brytanii.

W tym przyk│adzie wywo│ywana jest procedura WyliczPola, kt≤r╣ mo┐na znaleƒµ w przyk│adzie dotycz╣cym instrukcji SELECT.

Sub StDevX()

    Dim dbs As Database, rst As Recordset

    ' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a

    ' na rzeczywist╣ bazΩ danych Northwind.

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Oblicz odchylenie standardowe op│at za fracht

    ' za zam≤wienia wys│ane do Wielkiej Brytanii.

    Set rst = dbs.OpenRecordset("SELECT " _

        & "StDev(Fracht) " _

        & "AS [Odch. stand. frachtu] FROM Zam≤wienia " _

        & "WHERE KrajOdbiorcy = 'UK';")

    ' Zape│nij obiekt Recordset.

    rst.MoveLast

    ' Wywo│aj procedurΩ WyliczPola w celu

    ' wydrukowania zawarto£ci obiektu Recordset. Przeka┐ obiekt

    ' Recordset i wymagan╣ szeroko£µ pola.

    WyliczPola rst, 12

    Debug.Print

    Set rst = dbs.OpenRecordset("SELECT " _

        & "StDevP(Fracht) " _

        & "AS [Odch. stand. frachtu (popul.)] " _

        & "FROM Zam≤wienia " _

        & "WHERE KrajOdbiorcy = 'UK';")

    ' Zape│nij obiekt Recordset.

    rst.MoveLast

    ' Wywo│aj procedurΩ WyliczPola w celu

    ' wydrukowania zawarto£ci obiektu Recordset. Przeka┐ obiekt

    ' Recordset i wymagan╣ szeroko£µ pola.

    WyliczPola rst, 15

    dbs.Close

End Sub